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DISCHMNEWLEN = update the Length of the current Line’ 
MODUL C ! Upd 
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EDTSCHMNEWLEN ( ; pdate the og of the current lL 
{DENT = 'v04-000' ! File: CHMNEWLEN.BLI Edit: 


BEGIN 
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!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN A H_ THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: ppokat itu NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 
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' 
0036 This module updates the length of the current Line. 
sit ; ENVIRONMENT: Runs at any access mode - AST reentrant 
9040 _{ AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
904 i MODIFIED BY: 
0044 1! 1-001 = Original. DJS 04-Feb-1981. This module was created b | 
0045 : easracs ing the routine EDTSSUPD_LNLEN from module CHANGE.BLI. 
0046 ! 1-002 - Regularize headers. JBS 03-Mar-1981 
0047 ! 1-005 - New screen update logic. JBS 13-Sep-1982 
onee ; 1-004 - Improve the appearance of the Listing. JBS 13-Jun-1983 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSUPD_LNLEN : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
' 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
; In the routine 


nN 3 
FEN - update the length of the curren 19-808-13 r 90:03:98 


! Update the length of the current Line 


te 


X-11 8 
DT.SRC 


Page ¢ 
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EDTSCHMNEWLEN EDTSCHMNEWLEN = update the Length of the curren 18-se 1984 00:05: AX-11 Bliss-32 V4.0-74 Page 3 
04~600 EDTSSUPD CNL EN = update the Length of the curr 12286071382 99:93:93 YENT SREICHANEGLEN: BL 144 : (3) | 
| 
H ; 0658 ] ZSBTTL 'EDTSSUPD_LNLEN = update the Length of the current Line’ 
> or $e 5 1 GLOBAL ROUTINE EDTSSUPD_LNLEN ( ! Update the length of the current Line 
; o 658 1 L ! Change in Length (+ or -) 
; «89 0659 1 ) : NOVALUE = 
; 0660 1 
; 661 1 !++ 
; 4 276 | FUNCTIONAL DESCRIPTION: 
; 94 0664 1! This routine is called when the current Line changes in length. It updates 
; 0665 1! the EDTSSA_LN_END and EDT$$G_LN_LEN variables and insures that the 
; 38 peed 1; last character of the Line is a carriage return. 
; § 667 1! 
; 0668 1 ! FORMAL PARAMETERS: 
; WwW 0669 1! 
; 100 0670 1! L the change in the Length of the Line. 
: 101 0671 1! 
; 106 0672 1 ! IMPLICIT INPUTS: 
; 10 0673 1! : 
: 104 0674 1! EDTS$$G_LN_LEN : 
; 105 0675 1! EDTSS$T_LN_BUF : 
: 106 0676 1! EDTSSA_LN_END : 
: 107 0677 1! : 
; 108 0678 1 | IMPLICIT OUTPUTS: ; 
: 109 0679 1! 3 
: 110 0680 1! EDT$$G_LN_LEN ; 
; 612121 0681 1! EDTSS$A_LN_END . 
; Tie 0682 1! 
; 313 06835 1 ! ROUTINE VALUE: 
: (116 0684 1! 
s 195 0685 1! NONE 
: «4116 0686 1! 
s; Wi" 0687 1 ! SIDE EFFECTS: 
; «(118 0688 1! 
: (119 0689 1! NONE 
: 120 0690 1! | 
s Yer 0691 1 !-- 
; \$¢ 0692 1 | 
s ve 069 § BEGIN 
: 124 0694 
> 125 0695 2 EXTERNAL : 
: 126 0696 § EDTSST_LN_BUF, ! Current Line buffer | 
s ter 0697 EDTSSA_LN_END, ! End of current Line pointer 
; 133 Bene 3 EDT$$G_LN_LEN; ! Length of current Line 
s ia 0700 EDTS$G_LN_LEN = .EDTSSG_LN_LEN + .L; 
3 33) 0701 § EDTSSA_LN_END = CHSPTR TEDTS$T_LN BUF, .EDT$$G_LN_LEN); 
: 132 070 CHSWCHAR TASC_K_CR, .EDTSS$A_LN_END); 
3 135 0703 1 END; ! of routine EDTSSUPD_LNLEN 


-TITLE EDTSCHMNEWLEN EDTSCHMNEWLEN - update the Length 
the curren 
-IDENT \v04-000\ 


.EXTRN EDTSS$T_LN_BUF, EDTSSA_LN_END | 
“EXTRN EDTS$G~LN7LEN | 
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; Routine Size: 38 bytes, Routine Base: _EDTSCODE + 


0704 1 
0705 1 !<BLF/PAGE> 


EDT TehuPpetAce - update the length of the curren 16- 
EDTSSUPD_LNLEN = update the Length of the curr 14- 
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ee Ol iss. s-32 V4.0- 74g 
EDT. SRCJICHMNEWLEN.BLI; 
EDTSCODE,NOWRT, SHR, PIC,2 
SuPD ALN avy at” R2,R3 
$A-LN “FN: R2 

STUNT 

$6. LN_ “LEN: nd , EDT$$A_LN_END 
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Run me: : 
Elapsed Time: 00:11.7 
Lines/CPU Min: 4741 
Lexemes/CPU-Min: 12756 
conety Used: 52 pages 
Compila 
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EDTSCHMNEWLEN EDTSCHMNEWLEN = update the Length of the curren Ibse -1984 00:05: AX-11 Bliss-32 V4.0-74 Pa 5 

Fb u2600 EDISSUPD CNL EN ~ update the Length of the curr 1 =30071382 99:93 393 Heat SREICHANEGLEN OL 124 ws (4) | 
138 Gro? ! END ! of module EDTSCHMNEWLEN . 
: 139 $7 8 0 ELUDOM : 
é 
; 
; PSECT SUMMARY : 
; Name Bytes Attributes | : 
: _EDTSCODE 38 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics 2 
BW abe ee Oe Arcee rls ay a ea SyGbol§ scoocese Pages Processing 2 
; File Total Loaded Percent Mapped Time ; 
: ~$255$DUA28: [EDT SRCJEDT 32:1 377 1 0 40 00:00.2 : 
; _$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
; COMMAND QUALIFIERS | : 
Size: 38 code + 0 data bytes : 
Ti :09.0 : 


; Saree eee Seen ree ee ars NESE PETAL RACE LL LOM 50D CINE OR OR ESCHER OM MSRC$: CHMNEWLEN.BL1/UPDATE=(ENH$:C 
| 
| 
| 
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